# Protokoll zum 19.6.2013
# Oleg Schaefer
# Vereinsnamen abkürzen unter bestimmten Bedingungen + Umlaute in Vereinsnamen entfernen bzw. ersetzen durch (ae, ue, oe, Ae, Ue, Oe, ss)

## Was habe ich mir für diese Woche vorgenommen?
# b) Umlaute der Vereinsnamen entfernen 
# a) Schon erstellte und funktionierende Bundesligatabelle 12/13 mit Bedingungen für Abkürzungen (Kombination aus drei Buchstaben) der Vereinsnamen versehen

## Was habe ich bei der Umsetzung versucht?
# zu a) Leider noch nichts...Es müssten folgende Schritte noch eingebaut werden:

# noumlaute <- function(variable)
{                                                                                           
  ## Funktion entfernt stoerende Umlaute                                                                                                                                                                                 
  variable <- gsub("ä","ae",variable)
  variable <- gsub("ü","ue",variable)
  variable <- gsub("ö","oe",variable)
  variable <- gsub("Ü","Ue",variable)
  variable <- gsub("Ä","Ae",variable)
  variable <- gsub("Ö","Oe",variable)
  variable <- gsub("ß","ss",variable)
  return(variable)
}

# zu b) 

# Definieren eines neues Objktes, welches die Abbkuerzungen enthaelt
# Moeglicherweise sinnvoll ein Hilfsobjekt (ho) zu basteln

# Nimm die ersten 3 Zeichen von den clubnames
# Wir wollen die Laenge unserer Abkuerzung auf 3 Buchstaben beschraenken um es zu vereinheitlichen 
# --> daher Einbau von error checking ueber Abfrage der Laenge des Vektors ueber length()
# Aber die Abkuerzungen sollen weder Leerzeichen, Punkte noch Digits enthalten; mit Hilfe von gsub beseitigen

shc <- substr((clubnames, 1,3))
if (length(shc) > 3){
  stop(?ERROR: Abbkuerzung zu lang!`)
} 
for (i in 1:n)
  clubnames[,j] <- as.character(clubnames)

ho <- gsub("[[:punct:]]*", "[[:digit]]*","[[:blank:]]*", "", x=clubnames)

# "*" ist dafür gedacht, dass Null oder mehrere Items gematchet werden können;
# Wenn die ersten 3 Zeichen schon eine unique Abbkuerzung ergeben dann ok;
# Sonst replace das 3 dritte Zeichen durch den ersten unterschiedlichen Buchstaben auf Basis der clubnames;
# Theoretisch muesste eine Schleife kreiert werden, die durch die Club Namen laeuft,
# Buchstabe fuer Buchstabe bis ein unterschiedlicher gefunden wurde;
# Dieser replaced den 3. Buchstaben des vorher erstellten shortcuts (shc)


if (!(shc == unique) {
  gsub(shc <- as.character(shc[3]), replacement="next.diff.charac"
       next.diff.charac <- clubnames      
}

## Was hat funktioniert?
# a) Theoretisch müsste es funktionieren. Leider konnten wir es nicht in die Praxis umsetzen, da die fehlerbereinigte Funktion vom 12.06. uns nicht zur Verfügung stand
# b) siehe a)

## Was nehme ich mir für nächste Woche vor?
# a) U.U. enstehende Fehler zu beheben, damit eine einwandfreie Tabellenausgabe mit hinterlegten Bedingungen für Abkürzunge funktionieren kann
# b) Neue sinnvolle und interessante Auswertungen mit der erstellten Tabelle 
# c) Vertiefte Kenntnisse zu bestimmten Thematiken durch Selbstrecherche aneignen

## Was habe ich diese Woche besonderes kennengelernt?
# a) gsub in verschiedensten Ausführungen
# b) substr